home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27a.d64 / amica paint load (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  5 lines
  1. 100 IFATHEN120:DATA1000,7000,8000,A900,9000,C000,P1,P2,P3,P4,INPT
  2. 110 POKE56,48:CLR:DIMLO$(11):FORT=1TO11:READLO$(T):NEXT:IF0=PEEK(653)THENSYS2240
  3. 120 A=A+1:IFA<12THENLOAD"A.PAINT "+LO$(A),8,1
  4. 130 SYS64789:POKE157,0:SYS4096
  5.